home *** CD-ROM | disk | FTP | other *** search
/ Robotics & Artificial Int…3 (Professional Edition) / Robotics & Artificial Intelligence Tools 2003 (Professional Edition).iso / neural network tool and application / nsinstall.exe / data1.cab / Demos_Files / Kohonen_Feature_Maps / Varying the number of PE's.nsm < prev   
Encoding:
Text File  |  2002-03-08  |  2.4 KB  |  73 lines
  1. subtitleTextBox. setText ("")
  2. mainTextBox. setText ("")
  3.  
  4. outputAxon. setRows ( 16 )
  5. unsupervisedSynapse. setNeighborhood ( 8 )
  6.  
  7. activeBreadboard. lockWindowUpdate()
  8.  
  9. activeBreadboard. setAnimatePoint ( 595 , 100 )
  10. activeBreadboard. stampAndMove ( "TextBoxEngine" , "editTitle" )
  11. editTitle. setTransparent ( TRUE )
  12. editTitle. setBorderType ( 0 )
  13. editTitle. setPosition ( 1 )
  14. editTitle. setPadding ( 1 )
  15. editTitle. setFontSize ( 14 )
  16. editTitle. setBold ( TRUE )
  17. editTitle. setText ( "# of PE's" )
  18. editTitle. setHeight ( 18 )
  19. editTitle. setWidth ( 110 )
  20.  
  21. activeBreadboard. setAnimatePoint ( 635 , 120 )
  22. activeBreadboard. stampAndMove ( "EditEngine" , "editEngine" )
  23. editEngine. setPosition ( 0 )
  24. editEngine. setPadding ( 3 )
  25. editEngine. setFontSize ( 18 )
  26. editEngine. setItalic ( TRUE )
  27. editEngine. setColor ( 255 , 0 , 0 )
  28. editEngine. setAutosize ( TRUE )
  29. editEngine. setText ("16")
  30.  
  31. activeBreadboard. setAnimatePoint ( 580 , 160 )
  32. activeBreadboard. stampAndMove ( "TextBoxEngine" , "editTitle2" )
  33. editTitle2. setTransparent ( TRUE )
  34. editTitle2. setBorderType ( 0 )
  35. editTitle2. setPosition ( 0 )
  36. editTitle2. setPadding ( 1 )
  37. editTitle2. setFontSize ( 14 )
  38. editTitle2. setBold ( TRUE )
  39. editTitle2. setAutosize ( TRUE )
  40. editTitle2. setText ("Initial neighborhood width")
  41.  
  42. activeBreadboard. setAnimatePoint ( 635 , 180 )
  43. activeBreadboard. stampAndMove ( "EditEngine" , "editEngine2" )
  44. editEngine2. setPosition ( 0 )
  45. editEngine2. setPadding ( 3 )
  46. editEngine2. setFontSize ( 18 )
  47. editEngine2. setItalic ( TRUE )
  48. editEngine2. setColor ( 255 , 0 , 0 )
  49. editEngine2. setAutosize ( TRUE )
  50. editEngine2. setText ("8")
  51.  
  52. activeInputProbe. setBroadcast ( TRUE )
  53. activeInputProbe. setDotSize ( 4 )
  54. activeInputProbe. setBroadcast ( FALSE )
  55. activeInputProbe. setActiveChannel ( 1 )
  56. activeInputProbe. setDotSize ( 1 )
  57.  
  58. activeBreadboard. unlockWindowUpdate()
  59.  
  60. EditMacroPath = macro. pathFromMacro ( "Edit number of PE's.nsm" )
  61. editEngine. setMacroPath ( EditMacroPath )
  62. EditMacroPath2 = macro. pathFromMacro ( "Edit initial neighborhood width.nsm" )
  63. editEngine2. setMacroPath ( EditMacroPath2 )
  64.  
  65. activeBreadboard. select ( NULL , FALSE )
  66.  
  67. control. resetNetwork (  )
  68.  
  69. NextMacroPath = macro. pathFromMacro ( "A more difficult 1-D problem.nsm" )
  70. nextButton. setMacroPath ( NextMacroPath )
  71. SubtitleIndex = subtitleTextBox. setTextFromFile (TextBoxPath, SubtitleIndex)
  72. MainIndex = mainTextBox. setTextFromFile (TextBoxPath, MainIndex)
  73.